home *** CD-ROM | disk | FTP | other *** search
/ USGS: National Coal Resou…s & Great Plains Regions / USGS National Coal Resource Assessment 1999 - Northern Rocky Mountains & Great Plains Regions - Disc 2.iso / PROGRAM / ETC / UPDTRULS.AVE < prev    next >
Encoding:
Text File  |  1998-07-18  |  3.2 KB  |  73 lines
  1. ' @(#)updtruls.ave    1.4 3/11/96 19:34:08
  2.  
  3. ' This script creates a defaults list used by attribute aware
  4. ' editing for setting an FTab's default editing rules.  The default 
  5. ' rules are set by looking up the FTab field names in the field name
  6. ' lists provided.
  7. '
  8.  
  9. ' The defaults list logically contains five-element records: the default
  10. ' field name, the name of the shape type class, the name of the attribute 
  11. ' update rule class and the union and split rules for single field rules, 
  12. ' or the paried field name and range type for range rules.  The first 
  13. ' record is the default single field rule, the second record is the default 
  14. ' range type.  The default single rule will be applied to any field not 
  15. ' finding a default (single or range).  The default range rule is used if 
  16. ' a default range rule is required (used by the GUI).
  17. '
  18.  
  19. UpdateRules = 
  20.   {"",           Nil.GetClass.GetClassName, AttrSingle.GetClassName,  
  21.                  #ATTR_UNIONRULE_COPY,      #ATTR_SPLITRULE_COPY,
  22.  
  23.    "",           Nil.GetClass.GetClassName, AttrRange.GetClassName,   
  24.                  "",                        #ATTR_RANGETYPE_CONTINUOUS,
  25.  
  26.    "AREA",       Polygon.GetClassName,      AttrSingle.GetClassName,  
  27.                  #ATTR_UNIONRULE_SHAPEAREA, #ATTR_SPLITRULE_SHAPEAREA, 
  28.  
  29.    "PERIMETER",  Polygon.GetClassName,      AttrSingle.GetClassName,  
  30.                  #ATTR_UNIONRULE_SHAPELENGTH, #ATTR_SPLITRULE_SHAPELENGTH,
  31.  
  32.    "LENGTH",     PolyLine.GetClassName,     AttrSingle.GetClassName,  
  33.                  #ATTR_UNIONRULE_SHAPELENGTH, #ATTR_SPLITRULE_SHAPELENGTH,
  34.  
  35.    "L_F_ADD",    PolyLine.GetClassName,     AttrRange.GetClassName,   
  36.                  "L_T_ADD",                 #ATTR_RANGETYPE_ADDRESS,
  37.  
  38.    "LEFTADD1",   PolyLine.GetClassName,     AttrRange.GetClassName,   
  39.                  "LEFTADD2",                #ATTR_RANGETYPE_ADDRESS,
  40.  
  41.    "L_ADD_FROM", PolyLine.GetClassName,     AttrRange.GetClassName,   
  42.                  "L_ADD_TO",                #ATTR_RANGETYPE_ADDRESS,
  43.  
  44.    "LADD_FM",    PolyLine.GetClassName,     AttrRange.GetClassName,   
  45.                  "LADD_TO",                 #ATTR_RANGETYPE_ADDRESS,
  46.  
  47.    "LFROM",      PolyLine.GetClassName,     AttrRange.GetClassName,   
  48.                  "LTO",                     #ATTR_RANGETYPE_ADDRESS,
  49.  
  50.    "R_F_ADD",    PolyLine.GetClassName,     AttrRange.GetClassName,
  51.                  "R_T_ADD",                 #ATTR_RANGETYPE_ADDRESS,
  52.  
  53.    "RGTADD1",    PolyLine.GetClassName,     AttrRange.GetClassName,
  54.                  "RGTADD2",                 #ATTR_RANGETYPE_ADDRESS,
  55.  
  56.    "R_ADD_FROM", PolyLine.GetClassName,     AttrRange.GetClassName,
  57.                  "R_ADD_TO",                #ATTR_RANGETYPE_ADDRESS,
  58.  
  59.    "RADD_FM",    PolyLine.GetClassName,     AttrRange.GetClassName,
  60.                  "RADD_TO",                 #ATTR_RANGETYPE_ADDRESS,
  61.  
  62.    "RFROM",      PolyLine.GetClassName,     AttrRange.GetClassName,
  63.                  "RTO",                     #ATTR_RANGETYPE_ADDRESS,
  64.  
  65.    "LORANGE",    PolyLine.GetClassName,     AttrRange.GetClassName,   
  66.                  "HIRANGE",                 #ATTR_RANGETYPE_CONTINUOUS}
  67.  
  68. ' Write the list to an odb file.
  69.  
  70. anODB = ODB.Make("updtruls.db".AsFileName)
  71. anODB.Add(UpdateRules)
  72. anODB.Commit
  73.